home *** CD-ROM | disk | FTP | other *** search
- The change font control makes it easy for your users to change to the font style, size,
- or color on your form. Once the user has made his selection the control will then resize
- the form and then resize and reposition all of the form's controls so that the original layout
- of the form is maintained. If your application runs with the form maximized or if the user
- maximizes the form the control will check to see if it can resize and reposition the controls
- within the limits of the screen if resizing is possible then the controls are resized.
-
- The control has one method ChangeFont which will bring up the common dialog box for changing
- fonts. Useage: ChangeFont1.ChangeFont
-
- The control has one property show color which when set to true will enable the user to
- change the color of the font.
-
- The control has one event FontChanged which fires after the font has been resized. You can use
- this event to reset any of the controls font attributes that you want to retain control over.
- For example your program specifications may require all labels display their text with the
- bold attribute set to true.
-
- Note that while the control is designed to resize controls without destroying the original form
- layout if the form is maximized and the user changes the font it is possible for the original
- layout to be destroyed. You should always include code that will allow the user to restore the
- original form. I start my applications from sub main() in a standard module. I then include
- the following sub in the same standard module:
- Public sub Restore(frm as form)
- Unload frm
- Frm.show
- End sub
-
-
- The Disclaimer:
- THIS SOFTWARE IS PROVIDED BY Michael Du Bois (THE AUTHOR) ``AS IS'' AND ANY EXPRESS OR IMPLIED
- WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
- FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
- INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
- TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
- THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-
-
- This control is shareware. If you choose to keep and use this control in your applications the
- cost is $20.00 (US). Please remit check or money order to Michael Du Bois,
- 6342 Salado Rd.
- St Augustine Fl 32084.
- Comments, bug reports, or technical questions should be emailed to mikedb@aug.com.
-